print "whats the File name ? ";
  chomp (my $tmp = <STDIN>);
  my $file = "/home/wanderi/$tmp";        
  open (my $info, '<', $file) or die "cant open $file";
  print while <$info>;