use Win32::TieRegistry qw( $Registry );

warn "No association exists for Perl files\n"
   if not exists $Registry->{'Classes\\.pl'};