# all of my variables $instance, $user, $pass, $sid are defined above this code.

$| = 1;  

my $cnt = 0;

while (1) {
   $cnt++;


   $instance = $instance . '/sys_script_list.do?SOAP';

 
   use SOAP::Lite;
   sub SOAP::Transport::HTTP::Client::get_basic_credentials {
      return $user => $pass;
   }
 
   my $soap = SOAP::Lite -> proxy($instance);
   my $method = SOAP::Data->name('update')
       ->attr({xmlns => $instance});
 

   my @params = ( SOAP::Data->name(sys_id => '657567');
   push(@params, SOAP::Data->name(active => $active) );

   my $result = $soap->call($method => @params);
   print '...UPDATED!' . "\n\n";


   sleep(60); # wait an hour

}