#!/usr/bin/perl -w

print " I was called as $0\n";