Как решить "неинициализированное значение в скалярном присваивании" в коде Perl?

Question

Как мне решить следующую ошибку в моем коде:

Использование неинициализированного значения в скалярном присваивании в строке 59 faStat2.

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

...

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

Answer 1

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

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

...

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