Perl`овщики помогите со скриптом

Сам скриптик

#!/usr/bin/perl

print "Host: ";
$DBhost = <STDIN>;

print "User: ";
$DBuser = <STDIN>;

print "Pass: ";
$DBpass = <STDIN>;

print "DBname: ";
$DBname = <STDIN>;

$Date = `date +%d-%m-%Y-%H.%M`;

$log = "Backup.'$DBname'.'$Date'.txt";

system "echo '$log' > temp.log";

После запуска и ввода данных, инфа записывается в лог,
при просмотре видно что после каждого ввода происходит перевод каретки:

sh: line 1: .09-07-2012-14.56: command not found
sh: line 2: .txt: command not found

Как этого избежать?