~/script/perl/temp@myserver >cat perl.map2
#!/usr/bin/perl -w


use strict;

open (FH, 'foo.txt');
my @lines = <FH>;
close FH;
my @lines1 = split(' ', @lines);
print "@lines1\n";



#hi how are you
#i am fine
~/script/perl/temp@myserver >./perl.map2
2