You could do something like

if (@ARGV) {
    process($_) for @ARGV;
}
else {
    while (<>) {
        process($_);
    }
}
[download]

where sub process does the real work.