die "Syntax: [...]\n" unless my $fname = shift;