#!/opt/bin/perl
$file = shift || die "$0: no parameters!\n";
if ((-T $file) || (!-B $file))
{
    if (($uid,$gid) = (stat($file))[4,5])
    {
        if (($uid == 0) || ($gid == 0))
        {
            print "SCRIPT $file\n";
        }
        else
        {
            print "script $file\n";
        }
    }
    else
    {
        warn "can't stat $file: $!\n";
        print "Script $file\n";
    }
}
else
{
    print "binary $file\n";
}