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