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

##</code><code>##

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: $!";