#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

do {
    die if !defined $ARGV[1];
} while (0);

__END__

#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;

do {
    die if !defined $ARGV[1];

    my $owner_screen_name = $ARGV[0];
    my $slug = $ARGV[1];
} while (0);

__END__

Read argv[0] as owner_screen_name and argv[1] as slug.
Read argv[0] as owner_screen_name and argv[1] as slug.
