Select Code to Download

my $conf = "$_";
my $conf_bn = basename($conf);
...
my $backup = "$conf.$date";
my $backup_bn = basename("$conf.$date");
my $ltime = localtime();

sub add_vhost {
        my $conf;
        my $conf_bn;
        my $ltime;

foreach (@object) {
    my $conf = "$_";
...
    my $backup = "$conf.$date";
    my $backup_bn = basename("$conf.$date");
    my $ltime = localtime();

[root@wsprod01 myperl]# ./test.pl --domain google.com --client google
Usage: ./test.pl --domain companydomain.com --client company [--job-co
+de 12345] [--help].