#!/usr/bin/perl -wT
use strict;
use warnings;

my $s1 = <STDIN>;
print("\$s1= <$s1> \n");

if (<STDIN>) { 
  my $s2 = <STDIN>;
  print("\$s2= <$s1> \n"); 
};