#!/usr/bin/perl
exec"cat $0"