#!/usr/local/bin/perl -w

use strict "vars";
#-----------------------------------------------------------------------------
my $Line;

$| = 1;

print(":::list parent\n");
$Line = <STDIN>;
#----Read off EOF marker
<STDIN>;
print("My parent is $Line\n");
#-----------------------------------------------------------------------------