use strict;
use warnings;

use POSIX qw{ strftime };

my $organism    = q{WildHaggis};
my $rsite1      = q{ONE};
my $rsite2      = q{TWO};
my $rsite3      = q{THREE};

my $summaryfile = join q{_},
   $organism,
   q{summary_doubleDigest},
   $rsite1,
   $rsite2,
   $rsite3,
   strftime q{%m_%d_%Y.txt}, localtime( time() );

print $summaryfile, qq{\n};