#!/usr/bin/perl
use warnings;
use strict;
my @output = `bash -c set`;
print @output,"\n";