use Data::Dump qw(dump);
chomp($code = <IFH>);
print dump($code);