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