Select Code to Download

foreach my $line (<MVMT>)
{
    print $line;
}

my @foo;
foreach my $line (<MVMT>)
...
   push( @foo, $line );
}
my $file = join('', @foo);