in reply to Returning an error message when <STDIN> is not in use

die(...) if not @ARGV;

See @ARGV in perlvar.