#!/usr/bin/perl-w
use strict;
use warnings;

my $a = "string";
print $a,"\n";