use ExtUtils::testlib;
use lib qw(./lib ../lib);
use strict;
use Embed::Persistent ();
my $embed = Embed::Persistent->new(DEBUG => 1);
my $dfile = -e "sub.pl" ? "sub.pl" : "t/sub.pl";
my $file;
while (1) {
print "Enter filename: ";
chomp($file = <STDIN>);
$file ||= $dfile;
$embed->eval_file($file);
}