#!/usr/bin/perl -w
use strict;

my $fh = 'OUT';
open ($fh, "< $0") or die "Cannot read $0: $!";
print <$fh>;