#!/usr/bin/perl
use strict;
use warnings;

my $test = <<'ENDCODE';
    print "ja, klappt!\n";
ENDCODE

eval $test;
open (my $FH,'>','test.pl');
print $FH $test;
system('perl test.pl');