#!/usr/local/bin/perl
# Jaime Prilusky, 2004
$|=1;

use File::Copy;
use File::Basename;

  my $thisFile = basename($0);
  copy($thisFile, *STDOUT);