while ( 1 ) {
   system("perl get_value.pl");
   sleep(120);
}