Select Code to Download

print `/opt/csw/bin/octave -qfH < $filename`;

open (OCTAVE, "| /opt/csw/bin/octave -qfH < $filename") or die "Can't 
+open pipe: $!\n";
while(<OCTAVE>){
    print $_;
}
close(OCTAVE) or die "Couldn't close octave: $!";