Problem z argumentami w PERLU

Czy ktoś podpowiedziałby, jak zamienić argumenty wprowadzane z linii poleceń, np.:

perl plik.pl -s "url"

na argumenty wprowadzone w kodzie skryptu?

Oto kod:

# zdefiniowanie argumentów, na żądanie
# pokazanie pomocy.
my %args; getopts("s:h", \%args); 
die $help if exists $args{h};


# Tu do zmiennej $key przypiszemy url. 
my $key = "http://www.gazeta.pl/";



my %ys = (
   url => $key,
);

# jeśli użyto opcji -s, trzeba sprawdzić, czy przekazana wartość
# pasuje do jednego z powyższych kodów; jeśli nie, nie jest 
# używane żadne -s, pokazujemy pomoc.
my @sites; # jaką wersję analizować.
if (exists $args{'s'}) {
    @sites = split(/ /, lc($args{'s'}));
    foreach my $site (@sites) {
        die "NIEZNANY: $site\n\n$help" unless $ys{$site};
    }
} else { die $help; }