#!/usr/bin/perl -w

$count=1;
while ($count<10000) {

    ##########Date/Time
    ( $s,$m,$h,$mday ) = localtime( time ); 
    if( $s <  10 ) { $s = "0$s" } 
    if( $m  <  10 ) { $m  = "0$m" } 
    if( $h  <  10 ) { $h  = "0$h" } 
    if( $mday <  10 ) { $mday = "0$mday" } 
 
    $date_time = "$mday~$h-$m-$s";
    ##########Date/Time

    system("lwp-download http://file_to_download directory_to_save_to/$date_time.jpg"); 
    sleep 30;

    $count++;
}