Select Code to Download

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

# call foo or nothing (visible) will happen
foo();