use v5.14;

my $bacFileName = $ARGV[0];

#First get the epoch creation time of bac file
my $bacFileTime = `stat $bacFileName --format=%W`;

foreach my $fileName (`ls`) {
    chomp($fileName);
    next if $fileName eq $bacFileName;
    my $bacTypeFileName = ( ( split /\./, $bacFileName )[0] );
    next if $fileName =~ /$bacTypeFileName/;
    my $fileCreationTime = `stat $fileName --format=%W`;
    next if $fileCreationTime > $bacFileTime;
    `rm -rf $fileName`;
}