I think you want the "/s" switch to the screensaver program.

This works for me, for example (if I'm in the screensaver directory):

#!/usr/bin/perl -w

use strict;
use warnings;

my $scr = "sspipes.scr";
system("$scr/s");
[download]

Update:  Trying it with a random screensaver works too, so it seems /s is the correct, general solution.  Again (lazily) from within the screensaver directory:

#!/usr/bin/perl -w

use strict;
use warnings;

my @ss  = glob("*.scr");
my $scr = $ss[rand @ss];

system("$scr/s");
[download]

I have no idea what #!/usr/bin/perl -w does,
I've never heard about '/s',
and the requirement to be in the screensaver directory doesn't make any sense to me.

Regardless my experiments confirmed both the '/s',
and the directory necessities (guess I got more fundamentals to learn than I thought ^^).
Thank you very much, it works gr8.

Hi palkia,

By "be in the screensaver directory", I only meant that you have to run my script from wherever the screensavers are located. In my case it's C:\WINNT\system32, in your case it's apparently C:\WINDOWS\system32. But since you're giving the whole path, that's fine too.

The #!/usr/bin/perl -w line is not as important in Windows as in Linux, although the -w is quite useful (it enables "warnings"). You can read about "warnings" and "strict" in the perllexwarn documentation.

I wrote a screensaver in Perl several years ago (haven't finished it though), and remembered there was a way to invoke a screensaver from the command line. A search quickly led me to the /s switch.

Good luck and much enjoyment with your continued path in Perl!

say  substr+lc crypt(qw $i3 SI$),4,5