use strict;
use warnings; 

foreach my $file (@ARGV) {
    if (-f $file) {
        print "This is a file: $file\n";
    }
    if (-d $file) {
        print "\n\nThis is a directory: $file\n";
    }
}