Shell Programming and Scripting

#!/usr/bin/perl -w
use strict;
require File::Spec;

#VARIABLES
my $databasename = 'test_db';             		 #project database name
my $scriptsdir = '/home/user/perl/';  	                 #script directory
my $project = 'kor';        			         # backup folder name, as created it on sftp server
my $backupdir = 'b0000000@hanjin.dreamhost.com:/test/';  #backup host directory


#date settings
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
my $ymd = sprintf("%04d-%02d-%02d-%02d-%02d-%02d",$year+1900,$mon,$mday,$hour,$min,$sec);
my $outdb = '$ymd-$databasename.tar.gz';


#BACKUPS MYSQL DB INFO
##Checks which action was called and mysql db backup in case its daily
my $action = $ARGV[0] ? $ARGV[0] : "";
if ($action eq "daily") {
system('mysqldump -u root $databasename | gzip > $scriptsdir$outdb');
system('scp $scriptsdir$outdb $backupdir$project/daily.0');
system('rm $scriptsdir$outdb');
}

sh: cannot create : Directory nonexistent

my $backupdir = "b0000000@hanjin.dreamhost.com:/test/";  #backup host directory

Global symbol "@hanjin" requires explicit package name at ./production.pl line 11.

scp: /test/kor/daily.0: No such file or directory

my $backupdir = "b0000000\@hanjin.dreamhost.com:/test/";  #backup host directory

scp: /test/kor/daily.0: No such file or directory

$conf{'backup_dest'} = 'b000000@hanjin.dreamhost.com:test/kor/';