a.pl
   -----
    use strict;
    use warnings;
    print "hello\n";
   
    b.pl
   ----
      use strict;
      use warnings;
      while(1)
      {
          system("perl ./a.pl");
          sleep(1)
      }