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

$statTry=stat("testStat");


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