chomp (my $pipetest = <STDON>);