Petit truc en perl

J'aimerais savoir comment capture les touches Fx (F1, F2...) En perl avec un code qui ressemblerai un peu a ca :
print "Tapes sur ton clavier :\n";
$clavier = <STDIN>;
if ($clavier eq F1) {
print "blablabla";
} then{}

(c a peut pres ca :/)
Donc comment capter la touche F1 j'avais penser a la capturer en ASCII mais je sais pas.
Vous pouvez m'aider?