classname

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

get('http://www.classnamer.org/') =~ m{classname">(.+)</}
  ? ( say $1 and exit )
  : next;