# file1.pl
my $size = -s $ARGV[0];
my $time = -M $ARGV[0];

##</code><code>##

$ strace perl file1.pl

##</code><code>##

# file2.pl
my $size = -s $ARGV[0];
my $time = -M _;

##</code><code>##

$ strace perl file2.pl