sub newrelease {
print " New Releases \n";

my $start_day;
my $end_day;

(my $day,my $month,my $year) = (localtime)[3,4,5];
 
if ($day > 15) {  
	$start_day = sprintf("%04d%02d%02d", $year + 1900, $month + 1, 0);
	$end_day   = sprintf("%04d%02d%02d", $year + 1900, $month + 1, 15);
	}
if ($day <= 15) { 
	$start_day = sprintf("%04d%02d%02d", $year + 1900, $month, 15);
	$end_day   = sprintf("%04d%02d%02d", $year + 1900, $month , 31);
	}

	print "New Releases from $start_day to $end_day \n";

# pass datestamp off to my &sql sub outside of this block of code
&sql("stamp > $start_day and stamp =< $end_day"); 
}