#!/usr/bin/perl -w

use strict;

my $output = "out.txt";

open(OUT, ">$output")
        or die "Couldn't open $output: $!\n";
open(IN, "date|")
        or die "Couldn't open date|: $!\n";
print OUT <IN>;
close(OUT);
close(IN);
print "This gets printed to stdout.\n";