#! perl -slw
use strict;
use Win32::API::Prototype;

ApiLink(
    'user32',
    q[ BOOL SystemParametersInfo( 
        UINT uiAction, UINT uiParam, PVOID pvParam, UINT fWinIni 
       )
    ]
) or die $^E;

SystemParametersInfo( 0x0011, 0, 0, 0 ) or die $^E; ## SS off
system @ARGV;
SystemParametersInfo( 0x0011, 1, 0, 0 ) or die $^E; ## SS on