use Data::Dumper;
print(Dumper(-s "/home/vcg/Documents/Trial/temp"));
print(Dumper("$!"));