#!perl
use strict;
use warnings;
local $/;
my $script = <STDIN>;
eval($script);