sub getPlatformFiles {
    my $plat_in = shift;
    my $nic = shift;
    my @list;
##</code><code>##

sub getPlatformFiles {
    my ($plat_in, $nic) = @_;
    my @list;
##</code><code>##

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

my $variable = "Hello\n";
outputter();

sub outputter {
    print $variable;
}
##</code><code>##

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

sub outputter {
    print $variable;
}

my $variable = "Hello\n";
outputter();