There is a file named \*.iso, where `*` is any string (dot, numbers, alphabets, spl characters).

\*.iso is located at /dm2/www/html/isos/preFCS5.3/ 

I want to get this filename into $filename. I know it's very simple. How can I do this in Perl?
['https://Stackoverflow.com/questions/6856491', 'https://Stackoverflow.com', 'https://Stackoverflow.com/users/713200/']
This can be solved at `TObject`'s level. Its destructor has to be virtual:

```
#include <Classes.hpp>
class TObject 
{
   __fastcall TObject();
   virtual __fastcall ~TObject(); 
};

```

This way you can either do:

```
TObject * pobj = new TMyObject();
delete pobj;

```

or

```
TMyObject * pobj = new TMyObject();
delete pobj;

```

Both destructors will be called (`~TMyObject()` first and then `~TObject()`) and you will have no leak.
What's causing the confusion to you is that you can specifically mention "which" constructor of the base class you want to use as in the following example. But you can't/ don't need to specify the destructor.

```
TMyObject::TMyObject() : TObject()

```

You could use a different constructor, say `TObject (int i)` by writing

```
TMyObject::TMyObject() : TObject (3)

```

An object can be destructed in only one way but it can be constructed in several ways (by having different constructors).

So, in short, you don't need to mention the name of the base class destructor in the derived class destructor. As soon as you destroy the derived object (say, by doing `delete derivedObj`), it will first call the derived class destructor and then base class destructor by itself.