#!/usr/bin/perl

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

##</code><code>##

read: 1: Illegal option -n