Need help converting Perl to shell

[StickyBit]

Hi folks,

I need to convert the following Perl script into a shell script. Any help is appreciated.

#!/usr/bin/perl
use strict;
my $File = "/etc/passwd";
open (FILE,"$File&quot || die "error: can't open $File: $!\n";
while(<FILE>){
my @array = split(/:/,$_);
my $gid=(stat($array[5]))[5];
if ($array[5] eq /^\s*$/){
print &quot;User $array[0]&quot; . &quot; has no home directory\n&quot;;
}
if (-o $array[5] ){
print &quot;The directory $array[5] is not owned by $array[0]\n&quot;;
}
if ($array[3] ne $gid){
print &quot;The directory $array[5] belongs to the incorrect group\n&quot;;
}
if (-g $array[5] ){
print &quot;The directory $array[5] has the gid bit set\n&quot;;
}
}
close(FILE);