use IO::Handle;

my $file = 'C:\Progra~1\Ethereal\output.dat';

open STDERR, ">&STDOUT";

open (OUTPUT, ">$dat")   || die $!;
STDOUT->fdopen(\*OUTPUT, "w")  || die $!;

print "This is STDOUT\n";
warn "This is a warning\n";