function get_lastweek {
  perl << "EOF"
    my ($mday, $mon, $year) = (localtime(time()-86400*7))[3,4,5];
    $mon++;
    $year += 1900;
    printf("%04d%02d%02d\n", $year, $mon, $mday);
EOF
}

lastweek=$(get_lastweek)
print "Lastweek was $lastweek, isn't it?"