#!/usr/bin/perl

use strict;
use warnings;

open FILE, "test1.pl" or die "Cannot read test1.pl: $!\n";
my $file = join '', <FILE>;
close FILE;

eval $file;

# Check for errors.
die $@ if $@;