#!/usr/bin/perl
use strict;

my $Base_ID = getBaseID();  # some subroutine that gets this

my $filename = "myfile" . $Base_ID . ".xxx";
print $filename;

# eof