use Win32 ;

my $REGISTER;
use Win32::TieRegistry (Delimiter=>"/", ArrayValues=>1, TiedRef=>\$REGISTER) ;

sub get_filetype_cmd {
  my ( $type ) = @_ ;

  my $app = $REGISTER->{"HKEY_CLASSES_ROOT/.$type//" };
  my $cmd = $REGISTER->{"HKEY_CLASSES_ROOT/$$app[0]/shell/open/command//" };

  $cmd = $$cmd[0] ;
  $cmd =~ s/"(.*?)".*/$1/s ;
  $cmd =~ s/(\.exe|\.bat|\.com).*/$1/si ;

  return( $cmd ) ;
}

1;