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