Select Code to Download

my ($user, $lib) = qw(/home/john /lib);
sub directs {
    my $count;
...
}

print directs( $user, $lib), ' files deleted.', $/;

{
    local $/ = '<br />';
    foo(@args);
}