Re^2: My first perl script is working, what did I do wrong?

[Anonymous Monk]

1 == @ARGV or die "One, and only one argument expected\n";

1 == @ARGV or die Usage();