Select Code to Download

#/usr/bin/perl -w
use strict;
...
 sleep(100);
 count++;
}

case "$1" in
  start)
...
    #stop stuff here
        ;;
esac