sub pick_wavelets {

	`touch $SU_DIR/$file_1.picks`;
	`rm $SU_DIR/$file_1.picks`;
	`sugain agc=1 wagc=0.01 < $SU_DIR/$file_1.su | suxwigb mpicks=$SU_DIR/$file_1.picks`;

		}

BEGIN {
  unshift @INC, "/usr/local/perl5.16.0/lib/site_perl/5.16.0/Statistics/";
  unshift @INC, "/usr/local/perl5.16.0/lib/site_perl/5.16.0/"; 
 };
use R;
sub setup_R {
        use lib "/usr/lib64/R/";
	use lib "/usr/local/src/RSPerl/src/";
	use R;
	use RReferences; 
	&R::startR("--silent");