open (my $fh, '<', 'input2.txt' );
if(-T $fh) {print "bababa\n\n\n";}