my $fh;
if ( $opt->{o} ) {
    open ( $fh, '>', $opt->{o} )
    or die "Unable to open $opt->{o} for writing : $!";
    select($fh);
    $| = 1;
}