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