Thanks, I had one book open to stat with the 13 elements in an array and another describing the module File::stat.

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

$statTry=stat("testStat");


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