sub cleanup
{
  Decision::Depends::renew;
  system( q{ rm -f data/targ[0-9]* data/dep[0-9]* data/sig[0-9]* data/deps* } );

#  unlink
#    <data/targ[0-9]>,
#    <data/dep[0-9]>,
#    <data/sig[0-9]>,
#    <data/deps>
#    ;
}

sub touch
{
  my $time = time();

  my @times;
  foreach ( @_ )
  {
    unless ( -f $_ )
    {
      open( FILE, ">$_" ) or die( "unable to create $_\n");
      close(FILE);
    }
    utime( $time, $time, $_ );
    push @times, $time;
    $time++;
  }
  @times;
}


1;