1  #!/usr/bin/perl -w
2
3  while(<>){
4          print "before chomp ==>$_";
5          $ret = chomp $_;
6          print "after chomp ==>$_";
7          print "RETURN IS:$ret:";
8  }