C:\temp>cat foo.pl
#!/usr/bin/perl -l

use strict;
use warnings;

print 'Foo';

__END__

C:\temp>foo
Foo

C:\temp>foo >foo.txt

C:\temp>cat foo.txt
Foo