Как решить «неинициализированное значение в скалярном назначении» в коде 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#.*/##; 

Answer 1

OUTFILE должны быть в одинарных кавычках, потому что без них это bareword и с * перед ним он рассматривается как предмет, требующий скаляра. Код должен выглядеть так:

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

... 

$~ = 'OUTFILE'; 
my $cmd = $0; 
$cmd =~ s#.*/##;