#!/usr/bin/perl

use warnings;
use strict;

my $x = <<>>;   #get one line from either STDIN or first file
print "And we read: $x";