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

my $value;
if (defined $ARGV[0]) {
    $value = $ARGV[0];
}
else {
    $value = <STDIN>;
}

print "<$value>\n";