#!/usr/local/bin/perl5 

foreach $file (<*.sb>) {
  system "cp ../.sodabot/Src/$file .";
  if (-e "../.sodabot/Src/$file" . "h") {
    system "cp ../.sodabot/Src/$file" . "h" . " .";
  }
}
