#!/usr/bin/perl

use warnings;
use strict;

package FirstPackage {
}
package SecondPackage {
}
package ThirdPackage {
}

package main {

for my $name (keys (%main::)) {
    if ($name =~ m/::$/) {
        print "$name\n";
    }
}
}