#!/usr/bin/ksh

echo 'test ' > testfile2
# echo $(/usr/bin/tput smso)broken$(/usr/bin/tput rmso) > testfile2

##</code><code>##

 
#!/usr/bin/perl -w
use strict;

open F1, "testfile" or die "testfile: $!\n";
open F2, ">testfile2" or die "testfile2: $!\n";

while (<F1>){
    s/.*/test /;
    # s/.*/`tput smso`.'broken'.`tput rmso`/e;
    print F2;
    last;
}
close F1;
close F2;