#!/usr/bin/perl
die`cat $0`