use strict;
my $s = (-s 'dirname');
print "s is $s\n";