#!/usr/bin/perl
use File::stat;

@statTry=stat("testStat");


printf("The value for stat is => %04o\n ", $statTry[2]&0777 );
print("\n");