Select Code to Download

#!/usr/bin/perl

my $sql = 'SELECT table.field0, table.field1 FROM table;';
$sql =~ s/table.//g;
print "$sql\n";

use constant TABLE_NAME => 'table';

$stmt =~ s/TABLE_NAME.//g;    # doesn't work