#!perl
use strict;
use warnings;

open(IN,"con") || die $!;
print "Enter a line:";
my $line=<IN>;
print "Right back at ya: $line";

open(OUT,">nul") || die $!;
print OUT "Garbage Out";