Get 64-bit SteamID

use strict;
use LWP::UserAgent;
#use Win32::Clipboard;
use Clipboard;

die "Usage: $0 [custom id]" unless @ARGV == 1;

my $customid = shift @ARGV;
my $ua = new LWP::UserAgent;

if($customid =~ /\[(.+?)\]/) { $customid = $1 } #lol

$_ = $ua->get("http://steamcommunity.com/id/$customid?xml=1")->as_string();
#print $_;
my($steam64) = /<steamID64>(\d+)<\/steamID64>/
    or die "maybe he's changed yourself ID, or any error";

print "http://steamcommunity.com/profiles/$steam64\nLink has been copied to clipboard.\n";
Clipboard->copy("http://steamcommunity.com/profiles/$steam64");