#!/usr/bin/env perl
use Modern::Perl;
# 943467

my $MaxScanId = 45;
my $a = "Scan";

print "$a, \$MaxScanId: $MaxScanId";