use strict;
use warnings;

print "Hello world!\n";

my $file='test-response.pl';

unless (my $return = do $file) {
    warn "couldn't parse $file: $@" if $@;
    warn "couldn't do $file: $!"    unless defined $return;
    warn "couldn't run $file"       unless $return;
}

print "Did that work?\n";