Select Code to Download

use warnings;
use strict;
use Tk;
...
    print  $writeme  $ps  or die " Error in printing to pipe: $!";
    close $writeme or die " Error in closing pipe: $!";;
}