my $snum = shift;
my $file = shift;
my ($i) = (stat $file)[$snum];
print $i;