my $SSC_CLOSE = Win32::API->new( 'ssc-5', 'SSC_CLOSE', '', '', ); sub SSC_CLOSE { $SSC_CLOSE->Call(@_); };