in reply to use strict and -s

Sure. -s makes GLOBAL variables, so declare them. 
#!/usr/bin/perl -ws

use strict;
use vars qw( $size $shape );

print "A $shape of size $size\n";

[download]
Now you can say: object -size=10 -shape=square.

japhy -- Perl and Regex Hacker

Replies are listed 'Best First'.
Re: Re: use strict and -s
by pileswasp (Monk) on Mar 13, 2001 at 01:23 UTC
    Or just give them their full names...:

    #!/usr/local/bin/perl
use strict;

$::e && $main::f && print "wabbit";

    [download]
    for example.
[reply]
[d/l]

In Section Seekers of Perl Wisdom