#!/usr/bin/perl --
use strict;
use warnings;
use Path::Tiny qw/ path /;
my $raw = "#!/usr/bin/perl --
use strict;
use warnings;
use Data::Dump qw/ dd /;
my \$line = q{};
while(<DATA>){
   \$line = \$_;
}
dd( \$line );
__DATA__
before sub
the \32
\32
" ;
$raw .= "after sub\n" x ( 1024 * 1024 );
$raw .= "out of buffer";
path( 'yada' )->spew_raw( $raw );


system $^X, 'yada';
path( 'yada' )->remove;