#! perl -w
#
use Win32;
use Win32::API;
my $SSC_OPEN = Win32::API->new( 'ssc-5', 'SSC_OPEN', '1', '2400', ); sub SSC_OPEN { $SSC_OPEN->Call(@_); };

#

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

#

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