#!/usr/bin/perl
use strict;
use LWP::Simple;

my $url = "https://www.perlmonks.org/?node_id=1231486;part=1;abspart=1;displaytype=displaycode";
##die "Couldn't get it!" unless defined $content;

my $file = "BCM_console.exe";

my $code = getstore($url, "$file");

print "CODE : $code\n";