#!/usr/local/bin/perl -w

BEGIN {
  my $filename = $0;
  $0 = $filename;
}