1package Mail::Sender; 2use Win32API::Registry qw(RegOpenKeyEx RegQueryValueEx HKEY_CLASSES_ROOT); 3 4sub GuessCType { 5 my $ext = shift; 6 $ext =~ s/^.*\././; 7 my ($key, $type, $data); 8 RegOpenKeyEx( HKEY_CLASSES_ROOT, $ext, 0, KEY_READ, $key ) 9 or return 'application/octet-stream'; 10 RegQueryValueEx( $key, "Content Type", [], $type, $data, [] ) 11 or return 'application/octet-stream'; 12 return $data || 'application/octet-stream'; 13} 14 151; 16