my $a = "hello";
my $b = <>;

$a .= $b;
unlink $a;