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.
Destructor of the Base class will be automatically called by the compiler, when your objet life time ends. you do not need to call it explicitly.

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

```

Does not inherit the constructor.  

It is called as **[Member initializer list](https://stackoverflow.com/questions/6724626/c-constructor/6724639#6724639)** and it initializes the Base class object with a particular value.

When you create the object.

```
TMyObject obj;

```

The constructors will be called in order: 

```
constructor of TObject
constructor of TMyObject 

```

When the object life time ends the destructors will be called in the order:

```
destructor of TMyObject 
destructr of TObject

```

The compiler will do so for you, do not need to call it explicitly.