Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...
my $result = $dom->at('#tableprofile > tbody > tr:nth-child(1) > td.da
+ta')->text;

print Data::Dumper::Dumper($result);