use strict;
use warnings;
my $dir;
my $lic;
my $cfgf = 'work.conf';
open my $cfgh, '<', $cfgf or die "Can't open $cfgf: $!\n";
while (<$cfgh>)
{
    if (/\$folder\s+=\s+'([^']+)'/)
        $dir = $1;
        next;
    }
    if (/license\s+=>\s+'([^']+)'/)
    {
        $lic = $dir . $1;
        last;
    }
}
print "Folder: $dir\nLicense: $lic\n";