my $episodeid = nextId();

my $query=qq(INSERT INTO MasterEpisode SET 
    episoideid   = "$episodeid",
    ShowId       = "$ShowID",
    title        = "$p->{'ep_title'}",
    description  = "$p->{'ep_description'}",
    uploaddate   = "@{[localtime]}"
    );

sub nextId {
    open my $seq, "+<", "sequence.dat";
    flock $seq, 2
    my $id = <$seq>;
    $id++;
    print $seq $id;
    close $seq;
    return $id;
}