#!/usr/bin/perl

$key=`read -n3 key; echo \$key`;
print "$key\n";