$ who | myprog -r -
[download]

update
Actually, I shouldn't let this go without recommending that you try Getopt.
And it may be that you meant to write something like:

elsif ($ARGV[0] =~ m/^-r$/){
    $option = shift @ARGV;
    &doit($_) for <STDIN>;
}
[download]