#!/usr/bin/perl

use strict;

use warnings;

print "enter some perl code: ";

open my $r2h, '>require2.pl';
my $code = <>;
print $r2h $code;

close $r2h;

require 'require1.pl';