use strict;
use warnings;
use autodie;
use File::Temp qw/ tempfile /;
use Data::Dump;

my ($fh, $filename) = tempfile();

print $fh qq('Hello, world';\n);
close $fh;

my $first = require $filename;
dd $first;

my $second = require $filename;
dd $second;