sub lock {
open(FH,"+>/etc/passwd");
while (<FH>) {
    my $tmp1 = $_;
    #($tmp1 = $_) =~ s/bin\/bash/\/bin\/false/m;
     ($tmp1 = $_)  =~ s/\/bin\/(.*)/\/bin\/false/m;        # I HATE REGEX !!!!!! *GRRR*
}
close(FH);
}