die "$file does not exist!\n" unless -e $file;
my @perms;
push @perms, 'read' if -r $file;
push @perms, 'write' if -w $file;
push @perms, 'execute' if -x $file;
print @perms ? "You have @perms perms\n" : "You got zip\n";