sub check_perms {
    my $filename = shift;
    return -f -w -x $filename;
}
check_perms("filename") or die;