#!/usr/bin/perl

use strict;
use warnings;

my @files;
if ( @ARGV ) {
    @files = grep { -f } @ARGV;
}
elsif ( -t ) { # true if STDIN is a tty (not a pipe)
    die "Usage:  $0 file [file2 ...]\n   or: ls | $0\n";
}
else {  # get here when STDIN is connected to a pipe
    @files = <>;
    chomp @files;
}

# ... do stuff with @files