open(DAT, "<$output") || die("Cannot Open File");
my @file = <DAT>;
close DAT;
my $id = (split(':', $file[-1]))[0];
$id++;
print "$id\n";