perl - Perlコードで「スカラー代入の初期化されていない値」を解決するにはどうすればよいですか？

Question

コード内の次のエラーをどのように解決しますか？

faStat2の59行目のスカラー代入での初期化されていない値の使用。

#!/usr/bin/perl
use strict;
use warnings;

...

$~ = *OUTFILE; #This is the line it is complaining about
my $cmd = $0;
$cmd =~ s#.*/##;