#!/usr/local/bin/perl -w

use strict;
use warnings;

open(DAT,"datum.txt");
while(<DAT>)
{
$last_Date_Search = $_;
}
close DAT;
print "The date to search with: ", $last_Date_Search, "\n";

my $date = "'" . $last_Date_Search . ":3000[pdat]'";
print $date, "\n";