in reply to Append to file or create file depending on input filename.

In a similar vein to bellaire's reply, how about 
open $filehandle, (@ARGV == 1 ? '>' : ()), @ARGV;

[download]
? This lets the user specify the mode on the command line just as you would in the program, using another argument.

In Section Seekers of Perl Wisdom