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