...
my $filename = $ARGV[0];
my ($name, $number);

die "Usage: $0 filename\n" unless $filename; # checking command line parameter
...