Select Code to Download

#! /usr/bin/perl
use strict;
use warnings;
...
      or die( "Another $0 is already running.\n");
    return $self;
}