#!/usr/bin/perl
use lib '.';
use X;
my $x1 = X->new();
$x1->blah;
printf "Copying in X2.pm\n";
system("cp X2.pm X.pm");
printf "Trying X.pm\n";
eval `cat X.pm`;
$x1->blah;
my $x2 = X->new();