yeah, i thought of that, but i was over editing my answer when i saw three other answers which together covered every aspect of the problem. i think the best is btrott's solution:

my $infileold = shift || $fileold;
[download]