print "Testing File: $test_file\n";

my ( $mode, $uid ) = (stat( $test_file ))[2,4] or die "Stat failed.\n";
my ( $ownername ) = getpwuid $uid;

print "File is owned by '$ownername'\n";

my $ms = 'xwrxwrxwr';
my $modestring;

for ( 0..8 ) {
    if ( $mode & ( 2 ** $_ ) ) {
       $modestring = substr( $ms, $_ , 1 ) . $modestring;
    } else {
       $modestring = '-' . $modestring;
    }
}

print "File permissions are $modestring\n";