Bouton 'Cancel' fonction getOpenFile en perl

Bonjour,
je suis actuellement en train de développer un programme en perl dans lequel j'utilise la fonction getOpenFile pour ouvrir des fichiers.Voici le script de ma fonction :

sub ouvrirInf
{
my @types = ( [ "Inf Files", '.inf' ] , ["All Files", '*' ] ) ;
my $nomFichierInf = $fenetre -> getOpenFile ( -initialdir => '.',
-filetypes => \@types ) ;

#on regarde si le fichier est un .inf
if($nomFichierInf =~ /(\.inf)$/){
open(FICH,"$nomFichierInf")||die ("impossible d'ouvrir $nomFichierInf");
my @donneInf=<FICH>;
close(FICH);
creerAfficherInf("$donneInf[1]","$donneInf[0]","$donneInf[2]","$donneInf[3]","$donneInf[4]","$nomFichierInf");
}
#sinon on affiche un message d'erreur
else{
my $boiteDialogue = $fenetre -> Dialog (
-title => 'Ouvrir Inf' ,
-text => 'Ceci n\'est pas un fichier .inf' ,
-bitmap => 'question' ,
-default_button => 'OK' ,
-buttons => [ 'OK' ]
)->Show() ;
}

Mon problème est que lorsque je clique sur le bouton 'Cancel' qui existe directement dans la fonction, la boîte de dialogue précisant qu'il ne s'agit pas du bon type de fichier s'affiche. Comment faire pour préciser que quand je clique sur le bouton 'Cancel' la boîte ne s'affiche pas ?