#!/usr/bin/suidperl -w