RosettaCodeData/Task/File-size/Perl/file-size-1.pl

my $size1 = -s 'input.txt';
my $size2 = -s '/input.txt';