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

print $0 . "\n";
print __FILE__ . "\n";

do 'filetwo';